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FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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FFFFFFFFFE 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD DDDDDDDD 000000 

FFFFFFFFFF 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE AAAAAA DDDE YDDD DDDDDDDD 000000 

FF 00 OO RR RR RR RR EE AA AA 0D DD OD DD OO 00 

FF 00 OO RR RR RR RR EE AA AA 0D DD OD DD 00 00 

FF 00 OO RR RR RR RR EE AA AA DD DD ODD DD 00 00 

FF 00 OO RR RR RR RR EE AA AA DD DD OD DD 00 00 

FFFFFFFF 00 00 RRRRRRRR RRRRRRRR EEEEEEEE AA AA 0D DD DD DD 00 00 

FFFFFFFF 00 O00 RRRRRRRR RRRRRRRR EEEEEEEE AA AA DD DD OD DD 00 00 

FF 00 00 RR RR RR RR EE AAAAAAAAAA DD DD DD DD 00 00 

FF 00 OO RR RR RR RR EE AAAAAAAAAA DD DD ODD DD 00 0c 

FF 00 OO RR RR RR RR EE AA AA DD DD DD DD OO 00 cece 
FF 00 RR RR RR RR EE AA AA DD DD ODD DD 00 00 cece 
FF 000000 RR RR RR RR EEEEEEEEEE AA AA DDDDDDDD DDDDDDDD 000000 cece 
FF 000000 RR RR_ RR RR €EEEEEEEEE AA AA DDDDDDDD DDDDDDDD 000000 eee 
LL IIIIII SSSSSSSS 
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LL I] SS 
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1-012 fe g-SEp-198¢ 10:38:57 EPORRIL. GRCIFORREADDO.MAR:1 22° (1) 


This puts the correct mask in entry vector, that is FORS$I0_BEG entry mask. 
Furthermore this module must only use RO and R 
since any other register might not be in the entry mask for FORS$I0_BEG. 
ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


eeateits 34 BY: 
- Hastings, 29-July-78 


$008 1 -TITLE FORSREAD_DO - eney point for FORTRAN READ DIRECT OBJECT-FORMATTED 
43 § -IDENT /1-012/ e: FORREADDO.MAR Edit: JAW1012 
9000 ¢ DiSaapramrensis eager sen y PEN arr resem 
M ® 
0000 g 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
0000 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
44 S on ALL RIGHTS RESERVED. * 
5 ® 
0000 10 ;* THIS SOFTWARE IS FURNISHED aeee A LICENSE AND MAY BE USED AND COPIED * 
0000 11 ;* ONLY IN ACCORDANCE WITH THE eo ; OF SUCH cc AND WITH THE © 
44 \¢ 3* INCLUSION OF THE ABOVE re OTICE. THIS SOFTWARE OR ANY OTHER * 
00 15 ;* COPIES THEREOF MAY NOT BE P OVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
5000 12 3* TRANSFERRED. * 
7* ® 
0000 17 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
si i 3* CORPORATION. * 
se * 
0000 21 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 22 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 e3 :* * 
0000 24 ie * 
0000 25 PERRET AREA AEE EE TEETER AAA AAA AACE AAT ATA A eee eee ee eee eee 
0000 26 ; 
0000 se, 3 
0000 8 ;+ 
444 $3 : FACILITY: FORTRAN Support Library - user callable 
0000 31 ; ABSTRACT: 
0000 Se 3 
0000 35 3 This module contains the entry ss for the FORTRAN 
0000 34; READ DIRECT OBJECT-FORMATTED I/0 statement. It is simply 
0000 35 3 a call to FOR$$I0 BEG with bits in RO which describe the 
it #8 3 parameter List. FORSS$SIO_BEG interprets the parameters. 
0000 38 ; MAINTENANCE NOTE: : 
i464 ZR ; The transfer vector (RTLVECTOR+ALLGBL) must have the following: 
0000 41; . TRANSFER FORSREAD_DO 
0000 4g ; . MASK FORS$IO_BEG 
0000 45 3 BRW FORSREAD_DO+2 
0000 44 ; 
0000 45; 
46 ; 
47; 
48 ; 
49; 
50 ; 
2§ 3 
54; 
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1-012 ; Detailed Current Edit History 6-SEP-1984 10:58:57 FORRTL.SRCJFORREADDO.MAR; 1 (2) 
dc 


-SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 1 


0-10 = Add comment about vectors. TNH 23-June-78 

Q-12 = Pass arg in RO, not ROR, add comments. TNH om 

1-001 = Update version number and copyright notice. JBS 16-NOV-78 
1~R08 - Change statement type symbols to be LUBSK... JBS 07-DEC-78 
1-005 - Change statement type symbols to be IJSB$K...  JBS 11-DEC-78 
1-004 - A the PSECT directive. JBS 22-DEC- 

1-005 = Add FORSREAD_KF FORSREAD_KO, FORSREWRITE_SF, FORSREWRITE_SO, 


FORSREAD_IF, FORSREAD_10, FORSWRITE_IF, FORSWRITE_IO, 

FORSREAD_KU, FORSREWRITE_SU, 

SBL 2-May-1979 
1-006 - Remove all entry paints that need object time formatting, 

pe be them in FORSENTRY_OBJ so that we can arrange to 

oad the format compiler only when it is needed. 

JBS 26-JUN-1979 ' 
; 1-007 - Remove entry point FORSENCODE_MF; we will code a new module 
for it and FORS$IO_BEG, to see how much I/0 initiation time 
improves. JBS 02-JUL-1979 


fo lolololeleleleoleleloleleolelololeleolo-/-)-i >) 


00090009 0909 SII NN SINISE SSI AAA AAAAOOIINM 
MEW 0 OONAUE WN OC OONIAUE WOO 


0000 

0000 1-008 - Do Likewuse for FORSREAD_DU and FORSWRITE DU. JBS 03-JUL-1979 
0000 1-009 - Remove all entry points and add FORSREAD_DO; each entry 

0000 point gets its own module do we can selectively load 

0000 the necessary UDF and REC modules. JBS 09-JUL-1979 

0000 1-010 - Correct some sypos in the references to REC and UDF Levels. 

0000 JBS 12-JUL-19 

0000 1-011 - New parameter format for FOR$$I0_BEG. SBL 5-Dec-1979 

0000 1-012 = Change BRW FOR$$I10_BEG+2 to JMP G*FORS$IO_BEG+2. JAW 21-Feb-1981 


[ 
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1-012 DECLARATIONS 6-SEP-1984 10:58:57 (CFORRTL.SRCJFORREADDO.MAR; 1 (3) 
-SBTTL DECLARATIONS 

; INCLUDE FILES: 
$SFORPAR ; Define inter-module FORTRAN symbols 
SISBDEF ; Define statement type symbols | 


: EXTERNAL SYMBOLS: | 


-DSABL GBL ; Declare all external symbols. 
-EXTRN FORS$IO_BEG ; common I/0 statement processing 


34 

3; The Pe gen references are to make sure the necessary UDF and REC 
; modules are loaded. These are the routines which are called through 
3 the dispatch tables in FORSSDISPAT. 


: .EXTRN FORSSUDF_RFO, FORSSUDF_RF1, FORSSUDF_RF9 
SEXTRN FORSSREC-RDO, FORSSREC-RD1. FORSSREC_RD9 


SOOCCCCOOCOOCOCOOOOCOOOOOoOoOoO 
fo lolololelololo lala elo lolelololelelololojla) 


0000 3+ 
9444 ; The following reference makes sure the format compiler is loaded. 
0000 ; .EXTRN FORSSFMT_COMPIL 
0000 
0000 ; 
0000 > MACROS: 
; NONE 
> PSECT DECLARATIONS: 


0000 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT LONG 


: EQUATED SYMBOLS: 


COOCooooooo 


OWN STORAGE: 
NONE 
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a a ca ce ce a co cee ee cee ce ce ce ae ce ce ce ce ae a a ee ae ed ed 


SOOOCOoCoCoOoOOCOooCoOoOooOooo 
OOoOooooooooooooooo 
SSOOVOLSSeoSSSsSsss 


Cooooco 


. ~ ee OOOO — ee 
e - 


. 3 
or FORTRAN READ DIRECT OB 15-SEP-19 . 3:55:54 VAX/VMS Macro V04-00 Page 
EAD DIRECT OBJECT=FORMATT 6 SEP-1984 10:58:57 (CFORRTL. SREIFORREADDO. MAR; 1 
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 FORSREAD_DO - en 7 
/ 1-012 


vo 
oO. 
io 


ae 
; FUNCTIONAL DESCRIPTION: 


Initialize the FORT stem to perform 
a READ DIRECT OBJEC AN ORM Art itD 1/0 statement. 


; CALLING SEQUENCE: 


CALL FORSREAD_DO (unit.rl.v, record.no.rl.v, format_adr.rt.r 
, err_adr.j.r C, end_adr.j. 7rJ)) 


; INPUT PARAMETERS: 


: unit.rl.v Logical unit number 

: record _no.rl.v record number to read 
; format_ aecr: 4) r format string (needs compilation) 
; bere. adr. 1. r} optional ERR= address 
; end_adr.} optional END= address 
: IMPLICIT INPUTS: 

: NONE except those used by FORS$IO_BEG. 

: OUTPUT PARAMETERS: 

: NONE 

: IMPLICIT OUTPUTS: 

: NONE except those left by FORS$$IO_BEG. 

> COMPLETION CODES: 

: NONE 

: SIDE EFFECTS: 


NONE except those of FOR$$I0_BEG. 


VII NNNVOOCCOCOCOCCOSC SOO SOOCOCO CCC O COO OCOCO OO COOOOCOOSCOoOOOoOOoO I Uv 
FWD 9 OONOAMU EWN S$ OO OAM ES WWN  O OONAU EWN OO OONOAUMUE WN -OOONAU Ds 


ek kk a td dd dd dd 
C909 000000 SINISE NDS DS DDO DS DD DS TTT TTT BB BS BB EAI 


0000' FORSREAD_DO:: MASK vig: BEG 
50 0106 8F 3C MOVZWL #ISBSK ST_TY_RDF+ 
<1aFORSV 0B )- FMT>, RO i Statement type 
00000002'GF 17 JMP GAP ORSSIO _BEG+2 branch past call mask 
0 
0 END 


tr ———————— 
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6727 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 
There were 20 pages of symbol table space allocated to hold 188 non-local and 0 | 
184 source Lines were read in Pass 1, produc ing 8 object records in Pass 2. 


9 pages of virtual memory were used to define 2 macros. 


meee Neen weno em ee Bo em eee $ 


x $422: 
Symbol table 6-SEP-1984 10:58:57 
| FORSSFMT_COMPIL paeneen sa ae 
FORSSIO GEG erereene X 0 
FORSSREC_RDO teeeeree =X 00 
FORSSREC_RD1 teneeree =X 00 
FORSSREC_RD9 teeerere§ xX 00 
FORSSUDF _RF eeeeeeee =X 00 
FORSSUDF _RF teeeeree X 00 
FORSSUDF —RF9 teeeeeee =X 00 
FORSREAD DO 00000000 RG 01 
FORS$V_OBJ_FMT = 00000005 
ISBSK_ST_TY_RDF = 00000006 
$ eer enews eos eens at 
H Psect synopsis ! 

PSECT name Allocation PSECT No. Attributes 
« OS « 00000000 < 0.) OO ¢ 0.) NOPIC USR CON’ ABS 
_FORSCODE 00000000 ¢ 13.) 01 ¢ 1.) PIC USR CON REL LCL 

teem e ee reece en we wm ewe ec een + 

H Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 00:00:00.07 00:00:01.25 
Command processing 117 00:00:00.57 00:00:03.63 
Pass 123 00:00:01.33 00:00:03.87 
Symbol table sort 0 00:00:00.20 00:00:00.22 
Pass 46 00:00:00.53 00:00:02.43 
Symbol table output 3 00:00:00.04 00:00:00.14 
Psect synopsis output 2 00:00:00.02 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 323 00:00:02.77 00:00:11.57 
; working set Limit was 1050 pages. 


Macro Library name 


| -$255$DUA28: CFORRTL.OBJJFORRTL.MLB; 1 2 
$255$DUA28:(SYSLIBJSTARLET.MLB; 2 0 
TOTALS (all Libraries) 2 


183 GETS were required to define 2 macros. 


There were no errors, warnings or information messages. 


ocal symbols. 
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FORRTL.S 


SHR 


EXE 
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LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 


RD NOWRT NOVEC LONG 


(4). 
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MACRO/ENABLE=SUPPRESS10N/D1 SABLE=(GLOBAL,, TRACEBACK) /LIS=L1S$:FORREADDO/OBJ=0BJ$:FORREADDO MSRC$:F ORREADDO/UPDATE=(ENH$:FORREADDO) +LI | 
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